home *** CD-ROM | disk | FTP | other *** search
/ IBM InfoROM for OS/2 Beta 1995 January / IBM InfoROM for OS2 Beta 1-1995.ISO / testcert / mmedia / system / ap2 / scripts / xc____i1.p2s < prev   
Encoding:
Text File  |  1994-01-04  |  1.3 KB  |  53 lines
  1. # DESCRIPTION:
  2. # --------------------------------------------------------------
  3. #
  4. # Open CDXA, Tests position of device, Close
  5. #
  6. # --------------------------------------------------------------
  7. @BREAK              A CDXA WILL NEED TO BE IN THE DEFAULT CD-ROM DRIVE
  8.  
  9. open cdxa alias cdxa_1 notify
  10. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_OPEN #1
  11. @WAIT_NOTIFY 1 30000
  12.  
  13. acquire cdxa_1
  14. @WAIT_PASSDEVICE cdxa_1 10000
  15.  
  16. set cdxa_1 door locked notify
  17. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SET #2
  18. @WAIT_NOTIFY 2 30000
  19.  
  20. pause cdxa_1
  21. @CHECK The manual eject button has been locked.  Attempt to Eject the CDXA.  Did the eject fail?
  22.  
  23. status cdxa_1 media present wait
  24. =TRUE
  25.  
  26. set cdxa_1 door open notify
  27. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SET #3
  28. @WAIT_NOTIFY 3 30000
  29.  
  30. status cdxa_1 media present wait
  31. =FALSE
  32.  
  33. @break              Please replace the CD into the ROM Drive.
  34. @PAUSE 5000
  35.  
  36. status cdxa_1 media present wait
  37. =TRUE
  38.  
  39. set cdxa_1 door unlocked notify
  40. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SET #4
  41. @WAIT_NOTIFY 4 30000
  42.  
  43. set cdxa_1 door open notify
  44. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SET #5
  45. @WAIT_NOTIFY 5 30000
  46.  
  47. status cdxa_1 media present wait
  48. =FALSE
  49.  
  50. close cdxa_1 notify
  51. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_CLOSE #6
  52. @WAIT_NOTIFY 6 30000
  53.